home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 17 Arcade _ Action Games / SWAMP1.BIN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.5 KB  |  35 lines
  1. 10 POKE36879,26:B=28:POKE52,B:POKE56,B:POKE51,PEEK(55):CLR
  2. 20 A=256*PEEK(52)+PEEK(51)
  3. 30 FORI=ATOA+511:POKEI,PEEK(I+32768-A):NEXT
  4. 40 READB:IFB<0THEN60
  5. 50 FORI=BTOB+7:READJ:POKEI,J:NEXT:GOTO40
  6. 60 POKE198,1:POKE631,131
  7. 70 DATA7168,4,16,0,102,153,24,24,60
  8. 80 DATA7176,0,0,0,0,0,0,60,66
  9. 90 DATA7184,0,0,0,0,28,34,34,34
  10. 100 DATA7192,24,36,36,36,24,0,0,0
  11. 110 DATA7200,66,36,0,0,36,66,0,0
  12. 120 DATA7216,240,232,252,126,57,17,9,9
  13. 130 DATA7224,24,60,90,126,66,36,36,36
  14. 140 DATA7232,15,23,63,126,188,152,144,144
  15. 150 DATA7240,0,0,0,96,144,136,132,126
  16. 160 DATA7248,62,107,171,171,107,62,17,119
  17. 170 DATA7256,0,112,232,255,248,112,0,0
  18. 180 DATA7264,0,14,23,255,31,14,0,0
  19. 190 DATA7272,124,214,213,213,214,124,136,238
  20. 200 DATA7280,220,238,119,187,221,238,119,59
  21. 210 DATA7288,59,119,238,221,187,119,238,220
  22. 220 DATA7296,24,48,48,24,12,12,12,24
  23. 230 DATA7304,231,195,102,126,219,255,255,126
  24. 240 DATA7312,60,231,126,231,126,255,60,24
  25. 250 DATA7320,62,126,128,55,38,213,46,222
  26. 260 DATA7328,129,66,66,36,36,36,24,24
  27. 270 DATA7336,126,189,219,189,153,126,36,36
  28. 280 DATA7344,48,72,72,72,72,72,80,96
  29. 290 DATA7352,0,0,0,7,9,17,34,124
  30. 300 DATA7360,12,18,18,18,18,18,10,6
  31. 310 DATA7368,0,116,68,100,53,22,116,0
  32. 320 DATA7376,0,73,85,85,93,213,85,0
  33. 330 DATA7384,0,23,181,87,20,20,20,0
  34. 340 DATA7392,0,30,18,16,22,18,30,0
  35.